Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Int 25Ran#+1A
Int 5Ran#+1B
AxBB
ClrText
Locate 1,1,"xxxxxx RECRUIT xxxxxx"
Locate 1,3,A
Locate 4,3,"SOLDIERS AGREE TO"
Locate 1,4,"FIGHT FOR"
Locate 11,4,B
Locate 15,4,"GOLD."
Locate 1,6,"[F1] ACCEPT"
Locate 1,7,"[F2] DECLINE"
Goto A
Lbl A
Getkey=79Goto B
Getkey=69Goto E
Goto A
Lbl B
G<BGoto C
G-BG
H+AH
M+AM
1A
Return
Lbl C
ClrText
Locate 1,1,"xxxxxx RECRUIT xxxxxx"
Locate 3,3,"NOT ENOUGH GOLD."
Goto D
Lbl D
Getkey=31Goto E
Goto D
Lbl E
1A
Return